/*	This program produces Figure E1 */

***** Set directories 
local dir_clean 	"~/Dropbox/Retirement gaming/clean"
local dir_output 	"~/Dropbox/Retirement gaming/output/dataverse"


* histogram predicted retirement age
use "`dir_clean'/mainsample_predictions.dta", clear
replace medbcw=medbcw+50
replace expbcw_disc=expbcw_disc+50
twoway (histogram medbcw		, frac discrete color(gs9) fcolor(gs10) xsc(r(50 57)) xlabel(50(1)57) ) ///
       (histogram expbcw_disc	, frac discrete fcolor(none) lcolor(black)) ///
	   , scheme(s1color) legend(order(1 "Predicted with Median" 2 "Predicted with Expectation" )) xtitle("Predicted Start BCW")
graph export "`dir_output'/figureE1.png",  replace 

clear
exit
